home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / mail / mh / contrib / jpeek / tofrom < prev    next >
Encoding:
Text File  |  1992-08-08  |  1.5 KB  |  71 lines
  1. #! /bin/sh
  2. # $Header: /home/jerry/.bin/RCS/tofrom,v 1.6 92/08/09 23:26:36 jerry mh_contrib $
  3. #
  4. ###    tofrom - scan for mail to or from a user
  5. ###    Usage: tofrom -u user [+folder] [messages]
  6. ##
  7. ##    DOES pick -lbr -to USER -or -fr USER -rbr [+fol] [msgs] -seq picked
  8. ##    (ALSO INCLUDES apparently-from: AND apparently-to: HEADERS.)
  9. ##    THEN DOES scan picked
  10. #
  11. #    NOTE TO HACKERS: TABSTOPS ARE SET AT 4 IN THIS CODE
  12. #
  13. #    USE AT YOUR OWN RISK.  SEEMS TO WORK, BUT IT'S YOUR RESPONSIBILITY!
  14. #    PLEASE TELL ME ABOUT BUGS AND FIXES: Jerry Peek, jerry@ora.com
  15.  
  16. myname="`basename $0`"
  17. usage="Usage: $myname -u user [+folder] [messages]"
  18.  
  19. while :
  20. do
  21.     case "$1" in
  22.     "")    break ;;    # NO MORE ARGUMENTS
  23.     +*)    folder="$1" ;;
  24.     -h*)
  25.         echo "$usage" 1>&2
  26.         exit 0
  27.         ;;
  28.     -u)    case "$2" in
  29.         ""|[-+]*)
  30.             echo "${2}?? bad or missing argument after '-u'.
  31.             $usage" 1>&2
  32.             exit 1
  33.             ;;
  34.         *)    case "$who" in
  35.             "")    who="$2"
  36.                 shift    # shift OFF $1 (WE'LL shift $2 AT END OF LOOP)
  37.                 ;;
  38.             *)    echo "$myname: ${2}??  Only one username, please." 1>&2
  39.                 echo "$usage" 1>&2
  40.                 exit 1
  41.                 ;;
  42.             esac
  43.             ;;
  44.         esac
  45.         ;;
  46.     -*) echo "$usage
  47.         (no options, please; I don't understand '$1')" 1>&2
  48.         exit 1
  49.         ;;
  50.     *)    msgs="$msgs $1" ;;
  51.     esac
  52.     shift
  53. done
  54.  
  55. case "$who" in
  56. "") echo "$usage
  57.     (missing username)" 1>&2
  58.     exit 1
  59.     ;;
  60. *)    if pick -lbr -to "$who" -or -from "$who" -or --apparently-to "$who" \
  61.         -or --apparently-from "$who" -rbr $folder $msgs -seq picked
  62.     then
  63.         # THIS exitS WITH scan'S EXIT STATUS:
  64.         scan picked
  65.         exit
  66.     else
  67.         exit 1
  68.     fi
  69.     ;;
  70. esac
  71.